#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<tb<<endl;

if (tb>=8.0) cout<<"Gioi";

else if ((tb>=6.5) and (tb<8)) cout<<"Kha";

else if ((tb>=5) and (tb<6.5)) cout<<"Trung binh";

else cout<"Yeu";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<tb<<endl;

if (tb>=8.0) cout<<"Gioi";

else if ((tb>=6.5) and (tb<8)) cout<<"Kha";

else if ((tb>=5.0) and (tb<6.5)) cout<<"Trung binh";

else cout<<"Yeu";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double a,b,kq;

int main()

{

cin>>a>>b;

kq=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<kq;

return 0;

}

À (hk2) tbm toán 7.9, tb cả năm thì 8.0 . Vậy kì 2 có được hsg ko ạ!!

học lực kì 2 lấy điểm tb môn kì 2 thôi nhé, nhưng do cháu tb cả năm toán trên 8 nên cả năm vẫn được học sinh giỏi với điều kiện, TB tất cả các môn cả năm trên 8 và Tb toán văn anh không được dưới 6.5 nhé

Dạ là tb hk2  (toán 7.9 )ko đạt nhưng tb cả năm toán được 8.0 với môn phụ tbm trên 8 là được hsg ạ

Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

uses crt;

var a:array[1..50]of real;

max:real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('Nhap diem cua ban thu ',i,'='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Sus help me các step brother!

Program HOC24;

var Toan,Ly,Tin,TBMToan,TBMLy,TBMTin: real;

i,n: byte;

begin

write('Nhap so ban hoc sinh trong lop: '); readln(n);

for i:=1 to n do 

begin

write('Nhap diem Toan; Ly; Tin cua ban thu ',i,': ');

readln(Toan[i],Ly[i],Tin[i]);

end;

TBMToan:=0; TBMLy:=0; TBMTin:=0;

For i:=1 to n do 

begin

TBMToan:=TBMToan+Toan[i];

TBMLy:=TBMLy+Ly[i];

TBMTin:=TBMTin+Tin[i];

end;

writeln('Diem trung binh mon Toan la: ',TBMToan:5:1);

writeln('Diem trung binh mon Ly la: ',TBMLy:5:1);

writeln('Diem trung binh mon Tin la: ',TBMTin:5:1);

For i:=1 to n do

writeln('Diem trung binh 3 mon cua ban thu ',i,' la: ',TBMToan+TBMLy+TBMTin:5:1);

Readln

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b>>c;

tb=(a+b+c)/3;

cout<<fixed<<setprecision(1)<<tb<<endl;

if (tb>=8) cout<<"Gioi";

else if ((6.5<=tb) and (tb<8)) cout<<"Kha";

else if ((5<=tb) and (tb<=6.5)) cout<<"Trung Binh";

else cout<<"Chua dat";

return 0;

}

var t,dt,a,tb: real;

begin

write('Nhap diem mon Toan: '); readln(t);

write('nhap diem mon Tin: '); readln(dt);

write('Nhap diem mon Anh: '); readln(a);

if (a<=0) or (a>=10) or (t<=0) or (t>=10) or (dt<=0) or (dt>=10) then

repeat

writeln('Khong hop le, nhap lai: ');

write('Nhap diem mon Toan: '); readln(t);

write('nhap diem mon Tin: '); readln(dt);

write('Nhap diem mon Anh: '); readln(a);

until (a>=0) and (a<=10) and (t>=0) and (t<=10) and (dt>=0) and (dt<=10);

tb:=(t+dt+a)/3;

writeln('Diem trung binh: ',tb:2:1);

if (dt>=6.5) and (t>=6.5) and (a>=6.5) and (tb>=8) then writeln('Gioi') else

if (dt>=5) and (t>=5) and (a>=5) and (tb>=6.5) then writeln('Kha') else writeln('Trung binh');

end.

uses crt;

var toan,tin,anh,tb:real;

kt:integer;

begin

clrscr;

repeat

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Tin:'); readln(tin);

write('Nhap diem Anh:'); readln(anh);

until (0<=toan) and (toan<=10) and (0<=tin) and (tin<=10) and (0<=anh) and (anh<=10);

tb:=(toan+tin+anh)/3;

writeln('Diem trung binh cua 3 mon la: ',tb:4:2);

kt:=0;

if (tb>=8) and (toan>=6.5) and (tin>=6.5) and (anh>=6.5) then kt:=1;

if (6.5<=tb) and (tb<8) and (5<=toan) and (toan<6.5) and (5<=tin) and (tin<6.5) and (5<=anh) and (anh<6.5) then kt:=2;

if kt=0 then writeln('Hoc sinh trung binh');

if kt=1 then writeln('Hoc sinh gioi');

if kt=2 then writeln('Hoc sinh kha');

readln;

end.